home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 3 / Amiga Format CD03 (1996-07-04)(Future Publishing)(GB)(Track 1 of 6)[!][issue 1996-08].iso / pd / graphics / magnificad / install < prev    next >
Text File  |  1996-05-20  |  4KB  |  214 lines
  1. ; ** 
  2. ; **  MagnifiCAD installation scipt.
  3. ; **
  4. ; **  v1.1, (C)1995-96 Anders Granli.
  5. ; **  
  6. ; **  23.01.95
  7.  
  8. (welcome "Welcome to the MagnifiCAD installation")
  9.  
  10.  
  11. (message ("\nWelcome to MagnifiCAD!\n\nYou need about 650KB of free space on your\n hard drive for this installation.") )
  12.  
  13. ; **
  14. ; ** Check kickstart version
  15. ; **
  16.  
  17. (set version (/ (getversion) 65536))
  18.  
  19. (if(< version 37)
  20. (Exit "\nYou need at least Workbench 2.0\nto run MagnifiCAD.\n" ) 
  21. )
  22.  
  23. (if (< version 39)
  24.    (set cont 
  25.       (askbool 
  26.          (prompt (cat "\nYou have kickstart 2.0.\n\n "
  27.             "MagnifiCAD will work under 2.0,\n "
  28.             "but may have some slight problems.\n "
  29.             "Proceed to Install?\n " ))
  30.          (help (cat "\nIf you don't have Kickstart 3.0 or\n"
  31.                     "higher, some things just won't work." ))
  32.       )
  33.    )
  34. )
  35.  
  36. ; ** 
  37. ; ** Check processor
  38. ; ** 
  39.  
  40. (
  41.    (set proc (database "cpu"))
  42. )
  43.  
  44. ; ** 
  45. ; ** Ask where to install the program
  46. ; **
  47.  
  48. (set @default-dest "Work:")
  49.  
  50. (set Destination
  51.    (askdir
  52.       (prompt (cat "\nSelect the drawer where you would like\n"
  53.               "the drawer containing\nMagnifiCAD to be installed.\n") )
  54.       (help   (cat "\nA drawer named MagnifiCAD will be created in the\n"
  55.               "drawer you select, and the program and all the files\n"
  56.               "will be copied into this new drawer.") ) 
  57.       (default @default-dest)
  58.    )
  59. )
  60.  
  61. ;(if(<>(exists Destination) 2)
  62. ;   (makedir Destination (infos)))
  63.  
  64. (set @default-dest Destination)
  65.  
  66. (complete 10)
  67.  
  68. (set @default-dest 
  69.    (tackon Destination "MagnifiCAD")
  70. )
  71.  
  72. (makedir @default-dest
  73.    (prompt "Creating MagnifiCAD drawer.")
  74.    (infos)
  75. )
  76.  
  77. (complete 20)
  78.  
  79. ; ** 
  80. ; ** Assign
  81. ; **
  82.     
  83. (makeassign "MagnifiCAD" @default-dest)
  84. (complete 30)
  85.  
  86. ; **
  87. ; ** Fonts
  88. ; **
  89.  
  90. (set installfont
  91.    (askbool 
  92.       (prompt (cat "\nMagnifiCAD needs the newtopaz.font\n\n "
  93.          "Shall I install the font in your FONTS: drawer?" ))
  94.       (help "This copies the font to FONTS:")
  95.    )
  96. )
  97.  
  98. (if installfont 
  99.    (copyfiles
  100.       (prompt "Copying newtopaz.font to Fonts: directory")
  101.       (help @copyfiles-help)
  102.       (source "Fonts")
  103.       (all)
  104.       (dest "Fonts:")
  105.       (fonts)
  106.    )
  107. )
  108. (complete 50)      
  109.  
  110. ; **
  111. ; **  Install program
  112. ; **
  113.  
  114. (if (< proc 68020)
  115.    (copyfiles
  116.       (prompt "Copying MagnifiCAD program...\n\n(68000 version)")
  117.       (source "magnifiCAD.000")
  118.       (dest "MagnifiCAD:")
  119.       (newname "magnifiCAD")
  120.       (infos)
  121.       (help @copyfiles-help)
  122.    )
  123.    (copyfiles
  124.       (prompt "Copying MagnifiCAD program...\n\n(68020 version)")
  125.       (source "magnifiCAD")
  126.       (dest "MagnifiCAD:")
  127.       (infos)
  128.       (help @copyfiles-help)
  129.    )
  130. )
  131.  
  132. (copyfiles
  133.    (prompt "Copying MagnifiCAD files to DEST:")
  134.    (help @copyfiles-help)
  135.    (choices "ReadMe"
  136.             "Drawings"
  137.             "Symbols"
  138.             "Prefs"
  139.             "Docs"
  140.    )
  141.    (infos)
  142.    (source "")
  143.    (dest "MagnifiCAD:")
  144. )
  145.  
  146. (copyfiles
  147.    (choices "Icons")
  148.    (source "")
  149.    (dest "MagnifiCAD:")
  150. )
  151.  
  152.  
  153. (copyfiles
  154.    (choices "Registration")
  155.    (infos)
  156.    (source "")
  157.    (dest "MagnifiCAD:Docs")
  158. )
  159. (complete 80)
  160.  
  161. (copyfiles 
  162.    (prompt "Copying Drawings & Symbols")
  163.    (source "Drawings/")
  164.    (pattern "#?")
  165.    (dest "MagnifiCAD:Drawings/")
  166.    (infos)
  167. )
  168.  
  169. (copyfiles 
  170.    (source "Symbols/") 
  171.    (all)
  172.    (dest "MagnifiCAD:Symbols/") 
  173.    (infos)
  174. )
  175.  
  176. (copyfiles 
  177.    (source "Prefs/") 
  178.    (pattern "#?")
  179.    (dest "MagnifiCAD:Prefs") 
  180.    (infos)
  181. )
  182.  
  183. (copyfiles 
  184.    (source "Docs/") 
  185.    (pattern "#?")
  186.    (dest "MagnifiCAD:Docs") 
  187.    (infos)
  188. )
  189.  
  190. (copyfiles 
  191.    (source "Icons/") 
  192.    (pattern "#?")
  193.    (dest "MagnifiCAD:Icons") 
  194. )
  195. (complete 90)
  196.  
  197. ; AREXX
  198. ;(set rexxdir
  199. ;   (askdir
  200. ;      (prompt "Where shall I put the ARexx scripts?")
  201. ;      (default "REXX:")
  202. ;      (newpath)
  203. ;   )
  204. ;)
  205.  
  206. ;(copyfiles
  207. ;   (prompt "Copying ARexx scripts...")
  208. ;   (pattern "#?.rexx")
  209. ;   (source "ARexx/")
  210. ;   (dest rexxdir)
  211. ;)
  212.  
  213. (complete 100)
  214.